home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / compress / lzx / lzx_opus / lzxdopus.lha / LHAPack.DOpus < prev    next >
Text File  |  1995-03-05  |  2KB  |  70 lines
  1.                                                                                            
  2.    Installation : ARexx-Script ins REXX: kopieren
  3.                   Ein Button(Knopf) in DOpus aussuchen
  4.                   Dann einen Namen aussuchen (ich habe 
  5.                   'Name' : LHAPack
  6.                   'Neue Zeile' anwΣhlen
  7.                   Einmal auf 'BEFEHL' klicken muss zu 'AmigaDOS' werden
  8.                   Rechts daneben dann
  9.                   rexx:rx rexx:LHAPack.DOpus
  10.                   eingeben
  11.                   und zuletzt noch
  12.                   'AUSGABEFENSTER'
  13.                   anwΣhlen
  14.                   FERTIG
  15.                
  16.                !! Es sollte natuerlich der LHA im c: stehen !!
  17.  
  18.    Zum Programm : Mit diesem Script ist es moeglich eine
  19.                   oder mehrere Dateien LHA zu packen und
  20.                   zwar einzeln und ohne das man einen 
  21.                   Namen eingeben muss. 
  22.                   
  23.                   Hier auch ein Beispiel :
  24.  
  25.                   list  ---> list.lha
  26.                   dir   ---> dir.lha
  27.                   copy  ---> copy.lha
  28.    
  29.                   dabei wird eben automatisch der Name
  30.                   uebernommen und ein LHA angehaengt.
  31.  
  32.  
  33.  
  34.    *Problem mit Quell-Verzeichnis gel÷st. Die Richtung ist jetzt egal
  35.  
  36.    Vielleicht schreibt ihr mir mal ob es euch gefaellt oder so.
  37.    Es k÷nnen auch weitere VorschlΣge kommen, ich schreibe
  38.    auf jedenfall zurⁿck, ob es m÷glich ist */
  39.  
  40. OPTIONS RESULTS
  41. ADDRESS "DOPUS.1"
  42. BUSY ON
  43. STATUS 3
  44. fenster=result
  45. STATUS 13 fenster
  46. Pathaktiv=RESULT
  47. IF fenster=0 THEN DO
  48.     z=1
  49.     STATUS 13 1
  50.     Path=RESULT
  51. END
  52. else DO
  53.     z=0
  54.     STATUS 13 0
  55.     Path=RESULT
  56. END
  57. STATUS 7 fenster
  58. y=RESULT
  59. DO i=1 to y
  60. GETNEXTSELECTED fenster
  61. Name=RESULT
  62. TOPTEXT 'Von 'y' noch 'y-i+1'         Packe Datei : 'NAME
  63. ADDRESS COMMAND "c:lha a "PATH||NAME".lha "PATHAKTIV||NAME""
  64. SELECTFILE Name 0 1
  65. END
  66. BUSY OFF
  67. RESCAN z
  68. TOPTEXT 'Fertig'
  69.  
  70.